From 53d3d931fe3e7b1b43c205a04075c4cce19782dd Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 14 Jun 2002 06:15:00 +0000 Subject: [PATCH] (pop): Move the call to `car' outside the prog1, as the compiler generate better code for it. --- lisp/subr.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 648ff0de3e3..1870e570623 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -89,8 +89,9 @@ LISTNAME must be a symbol." LISTNAME must be a symbol whose value is a list. If the value is nil, `pop' returns nil but does not actually change the list." - (list 'prog1 (list 'car listname) - (list 'setq listname (list 'cdr listname)))) + (list 'car + (list 'prog1 listname + (list 'setq listname (list 'cdr listname))))) (defmacro when (cond &rest body) "If COND yields non-nil, do BODY, else return nil." -- 2.30.2